home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_352 / mg / rexx / buffers.mg < prev    next >
Text File  |  1992-05-06  |  249b  |  13 lines
  1. /* Exercise the rexx-buffer-list command */
  2.  
  3. options failat 2
  4.  
  5. 'rexx-buffer-list' buffers
  6.  
  7. 'rexx-insert "We got' buffers.0 'buffers\n"'
  8.  
  9. do i = 1 to buffers.0
  10.     'rexx-insert "' buffers.i.name 'file:' buffers.i.file buffers.i.status '\n"'
  11.     end
  12. exit 0
  13.